(mouse-sel-get-selection-function):

Look in x-last-selected-text if necessary.

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index fdcd9a3e623e5c2955bb8a8351904ff5280c6c1a..e86737c197f0c3ed5149055c0bb247269e4eb3e9 100644 (file)
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -201,7 +201,7 @@ for them.")
 (defvar mouse-sel-get-selection-function
   (function (lambda (selection)
              (if (eq selection 'PRIMARY)
-                 (x-cut-buffer-or-selection-value)
+                 (or (x-cut-buffer-or-selection-value) x-last-selected-text)
                (x-get-selection selection))))
   "Function to call to get the selection.
 Called with one argument: